vr2-5-10.wrl

---

[ VRML source code ]

#VRML V2.0 utf8
#vr2-5-10.wrl
Group {
  children [
    Group {
      children [
	DEF POWER TouchSensor {}
        #pencil body
        Transform {
          children DEF Body Shape {
            appearance Appearance {
              material Material {
                diffuseColor 1 1 0
              }
            }
            geometry Box {
              size 0.4 17 0.7 
            }
          }
        }
        Transform {
          rotation 0 1 0 1.047197
          children USE Body
        }
        Transform {
          rotation 0 1 0 2.094395
          children USE Body
        }
        #tipper
        Transform {
          translation 0 9.75 0
          children Shape {
            appearance Appearance {
              material Material {
                diffuseColor 1 1 0.5
              }
            }
            geometry Cone {
              height 2.5
              bottomRadius 0.37
            }
          }
        }
        #core
        Transform {
          translation 0 10.66 0
          children Shape {
            appearance Appearance {
              material Material {
                diffuseColor 0.2 0.2 0.2
              }
            }
            geometry Cone {
              bottomRadius 0.11
              height 0.7
            }
          }
        }
        #plastic rubber
        Transform {
          translation 0 -8.5 0
          children Shape {
            appearance Appearance {
              material Material {
                diffuseColor 1 1 0.4
              }
            }
            geometry Cylinder {
              radius 0.41
              height 0.5
            }
          }
        }
        Transform {
          translation 0 -9.1 0
          children Shape {
            appearance Appearance {
              material Material {
                diffuseColor 0.9 0.9 0.9
              }
            }
            geometry Cylinder {
              radius 0.39
              height 1.2
            }
          }
        }
      ]
    }
    DEF LIGHT DirectionalLight {
      on	FALSE
      location	50 0 50
    }
  ]
}
ROUTE POWER.isOver TO LIGHT.set_on